Лабораторная работа № 7

Задание 1

Задание: Дополнения к проекту «Регистрация». В пустые строки вводится соответствующая информация, а также указывается пол регистрируемого (рис. 1). После нажатия на кнопку Регистрация появляется окно с приветствием, текст в котором зависит от пола. (рис. 2, 3). После щелчка по кнопке Новый пользователь, окно принимает первоначальный вид (рис. 1).

Правила работы приложения: Если какая-либо информация не введена или не указана, программа выдает сообщение об ошибке.

 

                   

Рис. 2а Окно ввода данных                                                       Рис. 2б Окно регистрации

 

                   

Рис. 3а Окно ввода данных                                                       Рис. 3б Окно регистрации

 

Этапы работы:

1. Скопируйте папку Регистрация и переименуйте ее в Регистрация2.

2. Измените вид главной формы (рис. 1). Для этого добавьте компонент типа TRadioGroup, назовите его rgPol. А также кнопку, которую назовите btNew.

3. Для компонента rgPol в свойстве Caption задайте надпись группы. Используя свойство Items, сформируйте две строки списка.

4. Измените текст процедуры для кнопки Регистрация. Внимание: изучите новый текст процедуры, составьте ее блок-схему.

5. Для кнопки btNew опишите соответствующую процедуру.